perm filename DR1[LK,LCS] blob
sn#161095 filedate 1975-05-22 generic text, type T, neo UTF8
00100 SRATE←20000;MAG←512/SRATE;BIGBIT←3;
00200 REVINIT=1;R=0;
00300 < ZDRM .DAT -- RANDOM NUMBER= 165
00400 PLAY;REV 0 25.6;REVINIT=0;
05500 FM 0.000 0.228 186.567 1088.445 F12 F11 0.000 4.258 118.168 F3
05600 F11 0.568
05700 ;PRINT(P1);< FM 1
05800 FM 0.228 0.309 119.401 1182.489 F12 F11 0.000 6.276 87.060 F3
05900 F11 0.561
06000 ;PRINT(P1);< FM 2
06100 FM 0.537 0.275 116.693 1165.459 F12 F11 0.000 6.422 85.085 F3
06200 F11
06300 ;PRINT(P1);< FM 3
06400 FM2 0.812 0.240 67.642 1157.352 F12 F11 0.000 11.078 49.320 F3
06500 F11
06600 ;PRINT(P1);< FM2 4
06700 FM 1.037 0.206 119.963 1204.892 F12 F11 0.000 6.247 87.469 F3
06800 F11
06900 ;PRINT(P1);< FM 5
07000 FM2 1.243 0.239 61.949 1126.819 F12 F11 0.000 12.096 45.169 F3
07100 F11
07200 ;PRINT(P1);< FM2 6
07300 FM 1.419 0.155 116.548 1136.240 F12 F11 0.000 6.430 84.979 F3
07400 F11
07500 ;PRINT(P1);< FM 7
07600 FM 1.574 0.137 119.171 976.457 F12 F11 0.000 6.288 86.891 F3
07700 F11
07800 ;PRINT(P1);< FM 8
07900 FM 1.711 0.130 114.294 817.596 F12 F11 0.000 6.556 83.336 F3
08000 F11
08100 ;PRINT(P1);< FM 9
08200 FM2 1.841 0.240 66.503 913.751 F12 F11 0.000 11.268 48.490 F3
08300 F11
08400 ;PRINT(P1);< FM2 10
08500 FM 1.971 0.137 119.893 1071.445 F12 F11 0.000 6.250 87.418 F3
08600 F11
08700 ;PRINT(P1);< FM 11
08800 FM 2.108 0.137 168.322 1144.154 F12 F11 0.000 4.452 122.729 F3
08900 F11
09000 ;PRINT(P1);< FM 12
09100 FM2 2.245 0.241 69.276 1246.874 F12 F11 0.000 10.817 50.512 F3
09200 F11
09300 ;PRINT(P1);< FM2 13
09400 FM 2.400 0.177 167.948 1073.093 F12 F11 0.000 4.462 122.457 F3
09500 F11
09600 ;PRINT(P1);< FM 14
09700 FM 2.577 0.206 113.731 888.505 F12 F11 0.000 6.589 82.925 F3
09800 F11
09900 ;PRINT(P1);< FM 15
10000 FM2 2.783 0.240 63.147 859.879 F12 F11 0.000 11.867 46.043 F3
10100 F11
10200 ;PRINT(P1);< FM2 16
10300 FM 3.030 0.275 117.111 755.462 F12 F11 0.000 6.399 85.389 F3
10400 F11
10500 ;PRINT(P1);< FM 17
10600 FM2 3.305 0.240 63.307 801.777 F12 F11 0.000 11.837 46.159 F3
10700 F11
10800 ;PRINT(P1);< FM2 18
10900 FM 3.658 0.400 118.794 944.202 F12 F11 0.000 6.308 86.617 F3
11000 F11
11100 ;PRINT(P1);< FM 19
11200 FM2 4.585 0.240 209.139 706.170 F12 F11 0.000 3.583 152.490 F3
11300 F11
11400 ;PRINT(P1);< FM2 20
11500 FM 4.688 0.165 118.633 999.480 F12 F11 0.000 6.317 86.500 F3
11600 F11
11700 ;PRINT(P1);< FM 21
11800 FM 4.853 0.165 112.191 969.404 F12 F11 0.000 6.679 81.802 F3
11900 F11
12000 ;PRINT(P1);< FM 22
12100 FM 5.018 0.165 113.834 1188.409 F12 F11 0.000 6.583 83.000 F3
12200 F11
12300 ;PRINT(P1);< FM 23
12400 FM 6.007 0.207 181.276 1009.925 F12 F11 0.000 3.867 121.097 F3
12500 F11 0.358
12600 ;PRINT(P1);< FM 25
12700 FM2 6.214 0.240 210.371 1254.044 F12 F11 0.000 3.332 140.533 F3
12800 F11
12900 ;PRINT(P1);< FM2 26
13000 FM 6.421 0.113 178.579 762.239 F12 F11 0.000 3.926 119.296 F3
13100 F11
13200 ;PRINT(P1);< FM 27
13300 FM 6.534 0.112 120.090 1271.212 F12 F11 0.000 5.838 80.223 F3
13400 F11
13500 ;PRINT(P1);< FM 28
13600 FM 6.646 0.400 121.867 1267.099 F12 F11 0.000 5.753 81.410 F3
13700 F11
13800 ;PRINT(P1);< FM 29
13900 FM 7.266 0.248 120.906 1170.759 F12 F11 0.000 5.798 80.769 F3
14000 F11
14100 ;PRINT(P1);< FM 30
14200 FM2 7.514 0.240 212.979 1044.752 F12 F11 0.000 3.292 142.275 F3
14300 F11
14400 ;PRINT(P1);< FM2 31
14500 FM 7.762 0.275 181.885 1072.218 F12 F11 0.000 3.854 121.504 F3
14600 F11
14700 ;PRINT(P1);< FM 32
14800 FM2 8.037 0.240 71.252 962.435 F12 F11 0.000 9.839 47.598 F3
14900 F11
15000 ;PRINT(P1);< FM2 33
15100 FM 8.368 0.146 122.205 762.516 F12 F11 0.000 5.737 81.636 F3
15200 F11
15300 ;PRINT(P1);< FM 34
15400 FM 8.514 0.400 119.767 1000.693 F12 F11 0.000 5.853 80.007 F3
15500 F11
15600 ;PRINT(P1);< FM 35
15700 FM2 9.754 0.240 208.725 815.168 F12 F11 0.000 3.359 139.434 F3
15800 F11
15900 ;PRINT(P1);< FM2 36
16000 FM 10.167 0.155 172.776 753.467 F12 F11 0.000 4.058 115.419 F3
16100 F11
16200 ;PRINT(P1);< FM 37
16300 FM2 10.322 0.240 67.924 1278.623 F12 F11 0.000 10.321 45.375 F3
16400 F11
16500 ;PRINT(P1);< FM2 38
16600 FM 10.477 0.275 184.075 805.410 F12 F11 0.000 3.808 122.967 F3
16700 F11
16800 ;PRINT(P1);< FM 39
16900 FM 10.752 0.113 122.341 1093.640 F12 F11 0.000 5.730 81.727 F3
17000 F11
17100 ;PRINT(P1);< FM 40
17200 FM 11.691 0.146 191.946 1032.083 F12 F11 0.000 3.758 136.020 F3
17300 F11 0.541
17400 ;PRINT(P1);< FM 42
17500 FM 11.837 0.146 185.843 1065.118 F12 F11 0.000 3.882 131.695 F3
17600 F11
17700 ;PRINT(P1);< FM 43
17800 FM2 11.983 0.240 224.332 1181.014 F12 F11 0.000 3.216 158.970 F3
17900 F11
18000 ;PRINT(P1);< FM2 44
18100 FM 12.129 0.146 192.387 1071.988 F12 F11 0.000 3.750 136.333 F3
18200 F11
18300 ;PRINT(P1);< FM 45
18400 FM 12.275 0.259 134.121 902.434 F12 F11 0.000 5.379 95.043 F3
18500 F11
18600 ;PRINT(P1);< FM 46
18700 FM 12.534 0.146 133.523 1035.227 F12 F11 0.000 5.403 94.619 F3
18800 F11
18900 ;PRINT(P1);< FM 47
19000 FM 12.680 0.146 193.776 1179.709 F12 F11 0.000 3.723 137.317 F3
19100 F11
19200 ;PRINT(P1);< FM 48
19300 FM2 12.826 0.240 87.961 893.118 F12 F11 0.000 8.201 62.333 F3
19400 F11
19500 ;PRINT(P1);< FM2 49
19600 FM 12.972 0.146 134.418 908.334 F12 F11 0.000 5.367 95.254 F3
19700 F11
19800 ;PRINT(P1);< FM 50
19900 FM 13.118 0.400 137.553 1298.588 F12 F11 0.000 5.244 97.475 F3
20000 F11
20100 ;PRINT(P1);< FM 51
20200 FM 13.585 0.179 132.495 1141.057 F12 F11 0.000 5.445 93.891 F3
20300 F11
20400 ;PRINT(P1);< FM 52
20500 FM 13.764 0.180 134.836 1218.917 F12 F11 0.000 5.350 95.550 F3
20600 F11
20700 ;PRINT(P1);< FM 53
20800 FM 13.944 0.166 185.072 978.713 F12 F11 0.000 3.898 131.149 F3
20900 F11
21000 ;PRINT(P1);< FM 54
21100 FM 14.110 0.156 190.914 801.078 F12 F11 0.000 3.779 135.289 F3
21200 F11
21300 ;PRINT(P1);< FM 55
21400 FM2 14.266 0.240 87.628 860.673 F12 F11 0.000 8.232 62.097 F3
21500 F11
21600 ;PRINT(P1);< FM2 56
21700 FM 14.403 0.123 132.057 1197.553 F12 F11 0.000 5.463 93.581 F3
21800 F11
21900 ;PRINT(P1);< FM 57
22000 FM 14.526 0.117 187.659 1124.326 F12 F11 0.000 3.844 132.982 F3
22100 F11
22200 ;PRINT(P1);< FM 58
22300 FM 15.032 0.145 138.819 1015.987 F12 F11 0.000 5.197 98.373 F3
22400 F11
22500 ;PRINT(P1);< FM 60
22600 FM 15.177 0.292 185.407 960.764 F12 F11 0.000 3.891 131.387 F3
22700 F11
22800 ;PRINT(P1);< FM 61
22900 FM2 15.469 0.240 217.838 1034.028 F12 F11 0.000 3.312 154.369 F3
23000 F11
23100 ;PRINT(P1);< FM2 62
23200 FM 15.761 0.146 185.036 950.547 F12 F11 0.000 3.899 131.124 F3
23300 F11
23400 ;PRINT(P1);< FM 63
23500 FM 15.907 0.291 184.229 755.543 F12 F11 0.000 3.916 130.552 F3
23600 F11
23700 ;PRINT(P1);< FM 64
23800 FM 17.365 0.111 154.819 1289.326 F12 F11 0.000 5.474 104.332 F3
23900 F11 0.616
24000 ;PRINT(P1);< FM 66
24100 FM 17.476 0.198 228.070 1138.595 F12 F11 0.000 3.716 153.696 F3
24200 F11
24300 ;PRINT(P1);< FM 67
24400 FM 17.674 0.198 163.568 1022.527 F12 F11 0.000 5.181 110.228 F3
24500 F11
24600 ;PRINT(P1);< FM 68
24700 FM2 17.872 0.240 318.685 1050.659 F12 F11 0.000 2.659 214.761 F3
24800 F11
24900 ;PRINT(P1);< FM2 69
25000 FM 17.983 0.198 161.521 922.827 F12 F11 0.000 5.247 108.848 F3
25100 F11
25200 ;PRINT(P1);< FM 70
25300 FM 18.181 0.198 158.324 1222.225 F12 F11 0.000 5.352 106.694 F3
25400 F11
25500 ;PRINT(P1);< FM 71
25600 FM 18.379 0.080 155.122 1138.896 F12 F11 0.000 5.463 104.536 F3
25700 F11
25800 ;PRINT(P1);< FM 72
25900 FM 18.459 0.081 156.601 978.360 F12 F11 0.000 5.411 105.533 F3
26000 F11
26100 ;PRINT(P1);< FM 73
26200 FM 18.540 0.297 231.826 1294.257 F12 F11 0.000 3.655 156.227 F3
26300 F11
26400 ;PRINT(P1);< FM 74
26500 FM 18.837 0.089 237.143 1141.874 F12 F11 0.000 3.573 159.810 F3
26600 F11
26700 ;PRINT(P1);< FM 75
26800 FM 18.926 0.089 238.654 1276.665 F12 F11 0.000 3.551 160.828 F3
26900 F11
27000 ;PRINT(P1);< FM 76
27100 FM2 19.015 0.240 87.673 1168.419 F12 F11 0.000 9.666 59.082 F3
27200 F11
27300 ;PRINT(P1);< FM2 77
27400 FM 19.104 0.089 163.777 1087.491 F12 F11 0.000 5.174 110.369 F3
27500 F11
27600 ;PRINT(P1);< FM 78
27700 FM 19.193 0.296 159.297 1043.643 F12 F11 0.000 5.320 107.350 F3
27800 F11
27900 ;PRINT(P1);< FM 79
28000 FM 20.156 0.158 135.177 751.951 F12 F11 0.000 5.883 88.743 F3
28100 F11 0.716
28200 ;PRINT(P1);< FM 81
28300 FM 20.314 0.158 137.563 868.703 F12 F11 0.000 5.781 90.310 F3
28400 F11
28500 ;PRINT(P1);< FM 82
28600 FM 20.472 0.157 191.362 973.345 F12 F11 0.000 4.156 125.629 F3
28700 F11
28800 ;PRINT(P1);< FM 83
28900 FM2 20.629 0.241 263.093 1242.894 F12 F11 0.000 3.023 172.721 F3
29000 F11
29100 ;PRINT(P1);< FM2 84
29200 FM 20.787 0.280 133.332 904.165 F12 F11 0.000 5.965 87.533 F3
29300 F11
29400 ;PRINT(P1);< FM 85
29500 FM2 21.067 0.241 256.448 1118.757 F12 F11 0.000 3.101 168.358 F3
29600 F11
29700 ;PRINT(P1);< FM2 86
29800 FM 21.225 0.157 192.003 1048.328 F12 F11 0.000 4.142 126.050 F3
29900 F11
30000 ;PRINT(P1);< FM 87
30100 FM 21.382 0.158 137.391 1052.643 F12 F11 0.000 5.788 90.197 F3
30200 F11
30300 ;PRINT(P1);< FM 88
30400 FM 21.540 0.157 133.083 982.292 F12 F11 0.000 5.976 87.369 F3
30500 F11
30600 ;PRINT(P1);< FM 89
30700 FM 21.697 0.400 133.197 906.858 F12 F11 0.000 5.971 87.444 F3
30800 F11
30900 ;PRINT(P1);< FM 90
31000 FM2 22.201 0.240 85.895 1103.464 F12 F11 0.000 9.259 56.390 F3
31100 F11
31200 ;PRINT(P1);< FM2 91
31300 FM 22.395 0.194 131.770 914.012 F12 F11 0.000 6.035 86.507 F3
31400 F11
31500 ;PRINT(P1);< FM 92
31600 FM 22.589 0.180 132.747 755.117 F12 F11 0.000 5.991 87.149 F3
31700 F11
31800 ;PRINT(P1);< FM 93
31900 FM2 22.769 0.240 85.694 744.992 F12 F11 0.000 9.280 56.258 F3
32000 F11
32100 ;PRINT(P1);< FM2 94
32200 FM 22.937 0.148 134.953 1135.561 F12 F11 0.000 5.893 88.597 F3
32300 F11
32400 ;PRINT(P1);< FM 95
32500 FM 23.085 0.133 194.138 726.394 F12 F11 0.000 4.096 127.451 F3
32600 F11
32700 ;PRINT(P1);< FM 96
32800 FM 23.218 0.126 183.463 944.880 F12 F11 0.000 4.335 120.443 F3
32900 F11
33000 ;PRINT(P1);< FM 97
33100 FM 23.764 0.158 131.342 800.601 F12 F11 0.000 6.055 86.226 F3
33200 F11
33300 ;PRINT(P1);< FM 99
33400 FM2 23.922 0.240 255.649 1175.895 F12 F11 0.000 3.111 167.834 F3
33500 F11
33600 ;PRINT(P1);< FM2 100
33700 FINISH; < ZDRM .DAT